home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / c++ / NCTDiscWriter2.exe / {app} / MS VB 6.0 Samples / TestVBDataCDWriter / frmSpeedSelect.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-09-25  |  33.8 KB  |  1,140 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Begin VB.Form frmSpeedSelect 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Select Burn  Speed"
  6.    ClientHeight    =   2490
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   9945
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2490
  14.    ScaleWidth      =   9945
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.CommandButton btnOptimals 
  18.       Caption         =   "Optimals"
  19.       Height          =   375
  20.       Left            =   8700
  21.       TabIndex        =   54
  22.       Top             =   180
  23.       Width           =   1125
  24.    End
  25.    Begin VB.CommandButton btnAll 
  26.       Caption         =   "Show All"
  27.       Height          =   375
  28.       Left            =   8700
  29.       TabIndex        =   52
  30.       Top             =   630
  31.       Width           =   1125
  32.    End
  33.    Begin MSComctlLib.ProgressBar progressDetect 
  34.       Height          =   135
  35.       Left            =   1470
  36.       TabIndex        =   51
  37.       Top             =   2310
  38.       Visible         =   0   'False
  39.       Width           =   6885
  40.       _ExtentX        =   12144
  41.       _ExtentY        =   238
  42.       _Version        =   393216
  43.       Appearance      =   1
  44.       Max             =   50
  45.    End
  46.    Begin VB.OptionButton opt49X 
  47.       Caption         =   "49x"
  48.       Height          =   345
  49.       Left            =   7770
  50.       TabIndex        =   50
  51.       Top             =   1500
  52.       Width           =   735
  53.    End
  54.    Begin VB.OptionButton opt43X 
  55.       Caption         =   "43x"
  56.       Height          =   375
  57.       Left            =   6930
  58.       TabIndex        =   49
  59.       Top             =   1050
  60.       Width           =   735
  61.    End
  62.    Begin VB.OptionButton opt45X 
  63.       Caption         =   "45x"
  64.       Height          =   375
  65.       Left            =   6930
  66.       TabIndex        =   48
  67.       Top             =   1920
  68.       Width           =   735
  69.    End
  70.    Begin VB.OptionButton opt47X 
  71.       Caption         =   "47x"
  72.       Height          =   345
  73.       Left            =   7770
  74.       TabIndex        =   47
  75.       Top             =   630
  76.       Width           =   735
  77.    End
  78.    Begin VB.OptionButton opt28X 
  79.       Caption         =   "28x"
  80.       Height          =   375
  81.       Left            =   4410
  82.       TabIndex        =   46
  83.       Top             =   1050
  84.       Width           =   735
  85.    End
  86.    Begin VB.OptionButton opt29X 
  87.       Caption         =   "29x"
  88.       Height          =   345
  89.       Left            =   4410
  90.       TabIndex        =   45
  91.       Top             =   1500
  92.       Width           =   735
  93.    End
  94.    Begin VB.OptionButton opt31X 
  95.       Caption         =   "31x"
  96.       Height          =   375
  97.       Left            =   5250
  98.       TabIndex        =   44
  99.       Top             =   180
  100.       Width           =   735
  101.    End
  102.    Begin VB.OptionButton opt33X 
  103.       Caption         =   "33x"
  104.       Height          =   375
  105.       Left            =   5250
  106.       TabIndex        =   43
  107.       Top             =   1050
  108.       Width           =   735
  109.    End
  110.    Begin VB.OptionButton opt34X 
  111.       Caption         =   "34x"
  112.       Height          =   345
  113.       Left            =   5250
  114.       TabIndex        =   42
  115.       Top             =   1500
  116.       Width           =   735
  117.    End
  118.    Begin VB.OptionButton opt35X 
  119.       Caption         =   "35x"
  120.       Height          =   375
  121.       Left            =   5250
  122.       TabIndex        =   41
  123.       Top             =   1920
  124.       Width           =   735
  125.    End
  126.    Begin VB.OptionButton opt37X 
  127.       Caption         =   "37x"
  128.       Height          =   345
  129.       Left            =   6090
  130.       TabIndex        =   40
  131.       Top             =   630
  132.       Width           =   735
  133.    End
  134.    Begin VB.OptionButton opt39X 
  135.       Caption         =   "39x"
  136.       Height          =   345
  137.       Left            =   6090
  138.       TabIndex        =   39
  139.       Top             =   1500
  140.       Width           =   735
  141.    End
  142.    Begin VB.OptionButton opt41X 
  143.       Caption         =   "41x"
  144.       Height          =   375
  145.       Left            =   6930
  146.       TabIndex        =   38
  147.       Top             =   180
  148.       Width           =   735
  149.    End
  150.    Begin VB.OptionButton opt17X 
  151.       Caption         =   "17x"
  152.       Height          =   345
  153.       Left            =   2730
  154.       TabIndex        =   37
  155.       Top             =   630
  156.       Width           =   735
  157.    End
  158.    Begin VB.OptionButton opt19X 
  159.       Caption         =   "19x"
  160.       Height          =   345
  161.       Left            =   2730
  162.       TabIndex        =   36
  163.       Top             =   1500
  164.       Width           =   735
  165.    End
  166.    Begin VB.OptionButton opt21X 
  167.       Caption         =   "21x"
  168.       Height          =   375
  169.       Left            =   3570
  170.       TabIndex        =   35
  171.       Top             =   180
  172.       Width           =   735
  173.    End
  174.    Begin VB.OptionButton opt23X 
  175.       Caption         =   "23x"
  176.       Height          =   375
  177.       Left            =   3570
  178.       TabIndex        =   34
  179.       Top             =   1050
  180.       Width           =   735
  181.    End
  182.    Begin VB.OptionButton opt25X 
  183.       Caption         =   "25x"
  184.       Height          =   375
  185.       Left            =   3570
  186.       TabIndex        =   33
  187.       Top             =   1920
  188.       Width           =   735
  189.    End
  190.    Begin VB.OptionButton opt27X 
  191.       Caption         =   "27x"
  192.       Height          =   345
  193.       Left            =   4410
  194.       TabIndex        =   32
  195.       Top             =   630
  196.       Width           =   735
  197.    End
  198.    Begin VB.OptionButton opt9X 
  199.       Caption         =   "9x"
  200.       Height          =   375
  201.       Left            =   1050
  202.       TabIndex        =   31
  203.       Top             =   1485
  204.       Width           =   735
  205.    End
  206.    Begin VB.OptionButton opt11X 
  207.       Caption         =   "11x"
  208.       Height          =   375
  209.       Left            =   1890
  210.       TabIndex        =   30
  211.       Top             =   180
  212.       Width           =   735
  213.    End
  214.    Begin VB.OptionButton opt13X 
  215.       Caption         =   "13x"
  216.       Height          =   375
  217.       Left            =   1890
  218.       TabIndex        =   29
  219.       Top             =   1050
  220.       Width           =   735
  221.    End
  222.    Begin VB.OptionButton opt15X 
  223.       Caption         =   "15x"
  224.       Height          =   375
  225.       Left            =   1890
  226.       TabIndex        =   28
  227.       Top             =   1920
  228.       Width           =   735
  229.    End
  230.    Begin VB.OptionButton opt7x 
  231.       Caption         =   "7x"
  232.       Height          =   375
  233.       Left            =   1050
  234.       TabIndex        =   27
  235.       Top             =   615
  236.       Width           =   735
  237.    End
  238.    Begin VB.CommandButton btnOK 
  239.       Caption         =   "OK"
  240.       Height          =   375
  241.       Left            =   8700
  242.       TabIndex        =   25
  243.       Top             =   1890
  244.       Width           =   1125
  245.    End
  246.    Begin VB.OptionButton opt50X 
  247.       Caption         =   "50x"
  248.       Height          =   375
  249.       Left            =   7770
  250.       TabIndex        =   24
  251.       Top             =   1920
  252.       Width           =   735
  253.    End
  254.    Begin VB.OptionButton opt42X 
  255.       Caption         =   "42x"
  256.       Height          =   345
  257.       Left            =   6930
  258.       TabIndex        =   23
  259.       Top             =   630
  260.       Width           =   735
  261.    End
  262.    Begin VB.OptionButton opt44X 
  263.       Caption         =   "44x"
  264.       Height          =   345
  265.       Left            =   6930
  266.       TabIndex        =   22
  267.       Top             =   1500
  268.       Width           =   735
  269.    End
  270.    Begin VB.OptionButton opt46X 
  271.       Caption         =   "46x"
  272.       Height          =   375
  273.       Left            =   7770
  274.       TabIndex        =   21
  275.       Top             =   180
  276.       Width           =   735
  277.    End
  278.    Begin VB.OptionButton opt48X 
  279.       Caption         =   "48x"
  280.       Height          =   375
  281.       Left            =   7770
  282.       TabIndex        =   20
  283.       Top             =   1050
  284.       Width           =   735
  285.    End
  286.    Begin VB.OptionButton opt40X 
  287.       Caption         =   "40x"
  288.       Height          =   375
  289.       Left            =   6090
  290.       TabIndex        =   19
  291.       Top             =   1920
  292.       Width           =   735
  293.    End
  294.    Begin VB.OptionButton opt30X 
  295.       Caption         =   "30x"
  296.       Height          =   375
  297.       Left            =   4410
  298.       TabIndex        =   18
  299.       Top             =   1920
  300.       Width           =   735
  301.    End
  302.    Begin VB.OptionButton opt32X 
  303.       Caption         =   "32x"
  304.       Height          =   345
  305.       Left            =   5250
  306.       TabIndex        =   17
  307.       Top             =   630
  308.       Width           =   735
  309.    End
  310.    Begin VB.OptionButton opt36X 
  311.       Caption         =   "36x"
  312.       Height          =   375
  313.       Left            =   6090
  314.       TabIndex        =   16
  315.       Top             =   180
  316.       Width           =   735
  317.    End
  318.    Begin VB.OptionButton opt38X 
  319.       Caption         =   "38x"
  320.       Height          =   375
  321.       Left            =   6090
  322.       TabIndex        =   15
  323.       Top             =   1050
  324.       Width           =   735
  325.    End
  326.    Begin VB.OptionButton opt26X 
  327.       Caption         =   "26x"
  328.       Height          =   375
  329.       Left            =   4410
  330.       TabIndex        =   14
  331.       Top             =   180
  332.       Width           =   735
  333.    End
  334.    Begin VB.OptionButton opt18X 
  335.       Caption         =   "18x"
  336.       Height          =   375
  337.       Left            =   2730
  338.       TabIndex        =   13
  339.       Top             =   1050
  340.       Width           =   735
  341.    End
  342.    Begin VB.OptionButton opt20X 
  343.       Caption         =   "20x"
  344.       Height          =   375
  345.       Left            =   2730
  346.       TabIndex        =   12
  347.       Top             =   1920
  348.       Width           =   735
  349.    End
  350.    Begin VB.OptionButton opt22X 
  351.       Caption         =   "22x"
  352.       Height          =   345
  353.       Left            =   3570
  354.       TabIndex        =   11
  355.       Top             =   630
  356.       Width           =   735
  357.    End
  358.    Begin VB.OptionButton opt24X 
  359.       Caption         =   "24x"
  360.       Height          =   345
  361.       Left            =   3570
  362.       TabIndex        =   10
  363.       Top             =   1500
  364.       Width           =   735
  365.    End
  366.    Begin VB.OptionButton opt16X 
  367.       Caption         =   "16x"
  368.       Height          =   375
  369.       Left            =   2730
  370.       TabIndex        =   9
  371.       Top             =   180
  372.       Width           =   735
  373.    End
  374.    Begin VB.OptionButton opt8X 
  375.       Caption         =   "8x"
  376.       Height          =   375
  377.       Left            =   1050
  378.       TabIndex        =   8
  379.       Top             =   1050
  380.       Width           =   735
  381.    End
  382.    Begin VB.OptionButton opt10X 
  383.       Caption         =   "10x"
  384.       Height          =   315
  385.       Left            =   1050
  386.       TabIndex        =   7
  387.       Top             =   1920
  388.       Width           =   735
  389.    End
  390.    Begin VB.OptionButton opt12X 
  391.       Caption         =   "12x"
  392.       Height          =   375
  393.       Left            =   1890
  394.       TabIndex        =   6
  395.       Top             =   615
  396.       Width           =   735
  397.    End
  398.    Begin VB.OptionButton opt14X 
  399.       Caption         =   "14x"
  400.       Height          =   375
  401.       Left            =   1890
  402.       TabIndex        =   5
  403.       Top             =   1485
  404.       Width           =   735
  405.    End
  406.    Begin VB.OptionButton opt6X 
  407.       Caption         =   "6x"
  408.       Height          =   375
  409.       Left            =   1050
  410.       TabIndex        =   4
  411.       Top             =   180
  412.       Width           =   735
  413.    End
  414.    Begin VB.OptionButton opt3X 
  415.       Caption         =   "3x"
  416.       Height          =   375
  417.       Left            =   210
  418.       TabIndex        =   3
  419.       Top             =   1050
  420.       Width           =   735
  421.    End
  422.    Begin VB.OptionButton opt4X 
  423.       Caption         =   "4x"
  424.       Height          =   375
  425.       Left            =   210
  426.       TabIndex        =   2
  427.       Top             =   1485
  428.       Width           =   735
  429.    End
  430.    Begin VB.OptionButton opt2X 
  431.       Caption         =   "2x"
  432.       Height          =   375
  433.       Left            =   210
  434.       TabIndex        =   1
  435.       Top             =   615
  436.       Width           =   735
  437.    End
  438.    Begin VB.OptionButton opt1X 
  439.       Caption         =   "1x"
  440.       Height          =   375
  441.       Left            =   210
  442.       TabIndex        =   0
  443.       Top             =   180
  444.       Width           =   735
  445.    End
  446.    Begin VB.OptionButton opt5X 
  447.       Caption         =   "5x"
  448.       Height          =   315
  449.       Left            =   210
  450.       TabIndex        =   26
  451.       Top             =   1920
  452.       Width           =   735
  453.    End
  454.    Begin VB.Label lblDetectOptimals 
  455.       Caption         =   "Detect Optimals:"
  456.       Height          =   255
  457.       Left            =   210
  458.       TabIndex        =   53
  459.       Top             =   2250
  460.       Visible         =   0   'False
  461.       Width           =   1185
  462.    End
  463. Attribute VB_Name = "frmSpeedSelect"
  464. Attribute VB_GlobalNameSpace = False
  465. Attribute VB_Creatable = False
  466. Attribute VB_PredeclaredId = True
  467. Attribute VB_Exposed = False
  468. Private Sub btnAll_Click()
  469.     EnableOpt
  470. End Sub
  471. Private Sub btnOK_Click()
  472.     Me.Hide
  473. End Sub
  474. Private Sub btnOptimals_Click()
  475.     DetectOptimals
  476. End Sub
  477. Private Sub Form_Load()
  478.     progressDetect.Value = 0
  479. End Sub
  480. Public Sub DetectOptimals()
  481.     progressDetect.Visible = True
  482.     lblDetectOptimals.Visible = True
  483.     Me.Refresh
  484.     progressDetect.Value = 0
  485.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 1
  486.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 1 Then
  487.         opt1X.Enabled = True
  488.         opt1X.Value = True
  489.         frmTestVBAudioBurner.burnSpeed = 1
  490.     Else
  491.         opt1X.Enabled = False
  492.     End If
  493.     progressDetect.Value = 1
  494.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 2
  495.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 2 Then
  496.         opt2X.Enabled = True
  497.         opt2X.Value = True
  498.         frmTestVBAudioBurner.burnSpeed = 2
  499.     Else
  500.         opt2X.Enabled = False
  501.     End If
  502.     progressDetect.Value = 2
  503.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 3
  504.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 3 Then
  505.         opt3X.Enabled = True
  506.         opt3X.Value = True
  507.         frmTestVBAudioBurner.burnSpeed = 3
  508.     Else
  509.         opt3X.Enabled = False
  510.     End If
  511.     progressDetect.Value = 3
  512.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 4
  513.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 4 Then
  514.         opt4X.Enabled = True
  515.         opt4X.Value = True
  516.         frmTestVBAudioBurner.burnSpeed = 4
  517.     Else
  518.         opt4X.Enabled = False
  519.     End If
  520.     progressDetect.Value = 4
  521.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 5
  522.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 5 Then
  523.         opt5X.Enabled = True
  524.         opt5X.Value = True
  525.         frmTestVBAudioBurner.burnSpeed = 5
  526.     Else
  527.         opt5X.Enabled = False
  528.     End If
  529.     progressDetect.Value = 5
  530.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 6
  531.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 6 Then
  532.         opt6X.Enabled = True
  533.         opt6X.Value = True
  534.         frmTestVBAudioBurner.burnSpeed = 6
  535.     Else
  536.         opt6X.Enabled = False
  537.     End If
  538.     progressDetect.Value = 6
  539.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 7
  540.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 7 Then
  541.         opt7x.Enabled = True
  542.         opt7x.Value = True
  543.         frmTestVBAudioBurner.burnSpeed = 7
  544.     Else
  545.         opt7x.Enabled = False
  546.     End If
  547.     progressDetect.Value = 7
  548.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 8
  549.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 8 Then
  550.         opt8X.Enabled = True
  551.         opt8X.Value = True
  552.         frmTestVBAudioBurner.burnSpeed = 8
  553.     Else
  554.         opt8X.Enabled = False
  555.     End If
  556.     progressDetect.Value = 8
  557.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 9
  558.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 9 Then
  559.         opt9X.Enabled = True
  560.         opt9X.Value = True
  561.         frmTestVBAudioBurner.burnSpeed = 9
  562.     Else
  563.         opt9X.Enabled = False
  564.     End If
  565.     progressDetect.Value = 9
  566.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 10
  567.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 10 Then
  568.         opt10X.Enabled = True
  569.         opt10X.Value = True
  570.         frmTestVBAudioBurner.burnSpeed = 10
  571.     Else
  572.         opt10X.Enabled = False
  573.     End If
  574.     progressDetect.Value = 10
  575.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 11
  576.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 11 Then
  577.         opt11X.Enabled = True
  578.         opt11X.Value = True
  579.         frmTestVBAudioBurner.burnSpeed = 11
  580.     Else
  581.         opt11X.Enabled = False
  582.     End If
  583.     progressDetect.Value = 11
  584.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 12
  585.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 12 Then
  586.         opt12X.Enabled = True
  587.         opt12X.Value = True
  588.         frmTestVBAudioBurner.burnSpeed = 12
  589.     Else
  590.         opt12X.Enabled = False
  591.     End If
  592.     progressDetect.Value = 12
  593.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 13
  594.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 13 Then
  595.         opt13X.Enabled = True
  596.         opt13X.Value = True
  597.         frmTestVBAudioBurner.burnSpeed = 13
  598.     Else
  599.         opt13X.Enabled = False
  600.     End If
  601.     progressDetect.Value = 13
  602.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 14
  603.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 14 Then
  604.         opt14X.Enabled = True
  605.         opt14X.Value = True
  606.         frmTestVBAudioBurner.burnSpeed = 14
  607.     Else
  608.         opt14X.Enabled = False
  609.     End If
  610.     progressDetect.Value = 14
  611.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 15
  612.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 15 Then
  613.         opt15X.Enabled = True
  614.         opt15X.Value = True
  615.         frmTestVBAudioBurner.burnSpeed = 15
  616.     Else
  617.         opt15X.Enabled = False
  618.     End If
  619.     progressDetect.Value = 15
  620.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 16
  621.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 16 Then
  622.         opt16X.Enabled = True
  623.         opt16X.Value = True
  624.         frmTestVBAudioBurner.burnSpeed = 16
  625.     Else
  626.         opt16X.Enabled = False
  627.     End If
  628.     progressDetect.Value = 16
  629.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 17
  630.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 17 Then
  631.         opt17X.Enabled = True
  632.         opt17X.Value = True
  633.         frmTestVBAudioBurner.burnSpeed = 17
  634.     Else
  635.         opt17X.Enabled = False
  636.     End If
  637.     progressDetect.Value = 17
  638.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 18
  639.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 18 Then
  640.         opt18X.Enabled = True
  641.         opt18X.Value = True
  642.         frmTestVBAudioBurner.burnSpeed = 18
  643.     Else
  644.         opt18X.Enabled = False
  645.     End If
  646.     progressDetect.Value = 18
  647.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 19
  648.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 19 Then
  649.         opt19X.Enabled = True
  650.         opt19X.Value = True
  651.         frmTestVBAudioBurner.burnSpeed = 19
  652.     Else
  653.         opt19X.Enabled = False
  654.     End If
  655.     progressDetect.Value = 19
  656.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 20
  657.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 20 Then
  658.         opt20X.Enabled = True
  659.         opt20X.Value = True
  660.         frmTestVBAudioBurner.burnSpeed = 20
  661.     Else
  662.         opt20X.Enabled = False
  663.     End If
  664.     progressDetect.Value = 20
  665.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 21
  666.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 21 Then
  667.         opt21X.Enabled = True
  668.         opt21X.Value = True
  669.         frmTestVBAudioBurner.burnSpeed = 21
  670.     Else
  671.         opt21X.Enabled = False
  672.     End If
  673.     progressDetect.Value = 21
  674.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 22
  675.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 22 Then
  676.         opt22X.Enabled = True
  677.         opt22X.Value = True
  678.         frmTestVBAudioBurner.burnSpeed = 22
  679.     Else
  680.         opt22X.Enabled = False
  681.     End If
  682.     progressDetect.Value = 22
  683.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 23
  684.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 23 Then
  685.         opt23X.Enabled = True
  686.         opt23X.Value = True
  687.         frmTestVBAudioBurner.burnSpeed = 23
  688.     Else
  689.         opt23X.Enabled = False
  690.     End If
  691.     progressDetect.Value = 23
  692.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 24
  693.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 24 Then
  694.         opt24X.Enabled = True
  695.         opt24X.Value = True
  696.         frmTestVBAudioBurner.burnSpeed = 24
  697.     Else
  698.         opt24X.Enabled = False
  699.     End If
  700.     progressDetect.Value = 24
  701.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 25
  702.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 25 Then
  703.         opt25X.Enabled = True
  704.         opt25X.Value = True
  705.         frmTestVBAudioBurner.burnSpeed = 25
  706.     Else
  707.         opt25X.Enabled = False
  708.     End If
  709.     progressDetect.Value = 25
  710.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 26
  711.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 26 Then
  712.         opt26X.Enabled = True
  713.         opt26X.Value = True
  714.         frmTestVBAudioBurner.burnSpeed = 26
  715.     Else
  716.         opt26X.Enabled = False
  717.     End If
  718.     progressDetect.Value = 26
  719.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 27
  720.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 27 Then
  721.         opt27X.Enabled = True
  722.         opt27X.Value = True
  723.         frmTestVBAudioBurner.burnSpeed = 27
  724.     Else
  725.         opt27X.Enabled = False
  726.     End If
  727.     progressDetect.Value = 27
  728.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 28
  729.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 28 Then
  730.         opt28X.Enabled = True
  731.         opt28X.Value = True
  732.         frmTestVBAudioBurner.burnSpeed = 28
  733.     Else
  734.         opt28X.Enabled = False
  735.     End If
  736.     progressDetect.Value = 28
  737.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 29
  738.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 29 Then
  739.         opt29X.Enabled = True
  740.         opt29X.Value = True
  741.         frmTestVBAudioBurner.burnSpeed = 29
  742.     Else
  743.         opt29X.Enabled = False
  744.     End If
  745.     progressDetect.Value = 29
  746.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 30
  747.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 30 Then
  748.         opt30X.Enabled = True
  749.         opt30X.Value = True
  750.         frmTestVBAudioBurner.burnSpeed = 30
  751.     Else
  752.         opt30X.Enabled = False
  753.     End If
  754.     progressDetect.Value = 30
  755.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 31
  756.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 31 Then
  757.         opt31X.Enabled = True
  758.         opt31X.Value = True
  759.         frmTestVBAudioBurner.burnSpeed = 31
  760.     Else
  761.         opt31X.Enabled = False
  762.     End If
  763.     progressDetect.Value = 31
  764.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 32
  765.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 32 Then
  766.         opt32X.Enabled = True
  767.         opt32X.Value = True
  768.         frmTestVBAudioBurner.burnSpeed = 32
  769.     Else
  770.         opt32X.Enabled = False
  771.     End If
  772.     progressDetect.Value = 32
  773.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 33
  774.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 33 Then
  775.         opt33X.Enabled = True
  776.         opt33X.Value = True
  777.         frmTestVBAudioBurner.burnSpeed = 33
  778.     Else
  779.         opt33X.Enabled = False
  780.     End If
  781.     progressDetect.Value = 33
  782.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 34
  783.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 34 Then
  784.         opt34X.Enabled = True
  785.         opt34X.Value = True
  786.         frmTestVBAudioBurner.burnSpeed = 34
  787.     Else
  788.         opt34X.Enabled = False
  789.     End If
  790.     progressDetect.Value = 34
  791.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 35
  792.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 35 Then
  793.         opt35X.Enabled = True
  794.         opt35X.Value = True
  795.         frmTestVBAudioBurner.burnSpeed = 35
  796.     Else
  797.         opt35X.Enabled = False
  798.     End If
  799.     progressDetect.Value = 35
  800.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 36
  801.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 36 Then
  802.         opt36X.Enabled = True
  803.         opt36X.Value = True
  804.         frmTestVBAudioBurner.burnSpeed = 36
  805.     Else
  806.         opt36X.Enabled = False
  807.     End If
  808.     progressDetect.Value = 36
  809.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 37
  810.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 37 Then
  811.         opt37X.Enabled = True
  812.         opt37X.Value = True
  813.         frmTestVBAudioBurner.burnSpeed = 37
  814.     Else
  815.         opt37X.Enabled = False
  816.     End If
  817.     progressDetect.Value = 37
  818.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 38
  819.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 38 Then
  820.         opt38X.Enabled = True
  821.         opt38X.Value = True
  822.         frmTestVBAudioBurner.burnSpeed = 38
  823.     Else
  824.         opt38X.Enabled = False
  825.     End If
  826.     progressDetect.Value = 38
  827.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 39
  828.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 39 Then
  829.         opt39X.Enabled = True
  830.         opt39X.Value = True
  831.         frmTestVBAudioBurner.burnSpeed = 39
  832.     Else
  833.         opt39X.Enabled = False
  834.     End If
  835.     progressDetect.Value = 39
  836.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 40
  837.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 40 Then
  838.         opt40X.Enabled = True
  839.         opt40X.Value = True
  840.         frmTestVBAudioBurner.burnSpeed = 40
  841.     Else
  842.         opt40X.Enabled = False
  843.     End If
  844.     progressDetect.Value = 40
  845.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 41
  846.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 41 Then
  847.         opt41X.Enabled = True
  848.         opt41X.Value = True
  849.         frmTestVBAudioBurner.burnSpeed = 41
  850.     Else
  851.         opt41X.Enabled = False
  852.     End If
  853.     progressDetect.Value = 41
  854.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 42
  855.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 42 Then
  856.         opt42X.Enabled = True
  857.         opt42X.Value = True
  858.         frmTestVBAudioBurner.burnSpeed = 42
  859.     Else
  860.         opt42X.Enabled = False
  861.     End If
  862.     progressDetect.Value = 42
  863.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 43
  864.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 43 Then
  865.         opt43X.Enabled = True
  866.         opt43X.Value = True
  867.         frmTestVBAudioBurner.burnSpeed = 43
  868.     Else
  869.         opt43X.Enabled = False
  870.     End If
  871.     progressDetect.Value = 43
  872.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 44
  873.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 44 Then
  874.         opt44X.Enabled = True
  875.         opt44X.Value = True
  876.         frmTestVBAudioBurner.burnSpeed = 44
  877.     Else
  878.         opt44X.Enabled = False
  879.     End If
  880.     progressDetect.Value = 44
  881.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 45
  882.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 45 Then
  883.         opt45X.Enabled = True
  884.         opt45X.Value = True
  885.         frmTestVBAudioBurner.burnSpeed = 45
  886.     Else
  887.         opt45X.Enabled = False
  888.     End If
  889.     progressDetect.Value = 45
  890.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 46
  891.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 46 Then
  892.         opt46X.Enabled = True
  893.         opt46X.Value = True
  894.         frmTestVBAudioBurner.burnSpeed = 46
  895.     Else
  896.         opt46X.Enabled = False
  897.     End If
  898.     progressDetect.Value = 46
  899.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 47
  900.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 47 Then
  901.         opt47X.Enabled = True
  902.         opt47X.Value = True
  903.         frmTestVBAudioBurner.burnSpeed = 47
  904.     Else
  905.         opt47X.Enabled = False
  906.     End If
  907.     progressDetect.Value = 47
  908.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 48
  909.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 48 Then
  910.         opt48X.Enabled = True
  911.         opt48X.Value = True
  912.         frmTestVBAudioBurner.burnSpeed = 48
  913.     Else
  914.         opt48X.Enabled = False
  915.     End If
  916.     progressDetect.Value = 48
  917.     frmTestVBAudioBurner.AudioBurner1.burnSpeed = 49
  918.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 49 Then
  919.         opt49X.Enabled = True
  920.         opt49X.Value = True
  921.         frmTestVBAudioBurner.burnSpeed = 49
  922.     Else
  923.         opt49X.Enabled = False
  924.     End If
  925.     progressDetect.Value = 49
  926.    frmTestVBAudioBurner.AudioBurner1.burnSpeed = 50
  927.     If frmTestVBAudioBurner.AudioBurner1.burnSpeed = 50 Then
  928.         opt50X.Enabled = True
  929.         opt50X.Value = True
  930.         frmTestVBAudioBurner.burnSpeed = 50
  931.     Else
  932.         opt50X.Enabled = False
  933.     End If
  934.     progressDetect.Value = 50
  935.     progressDetect.Visible = False
  936.     lblDetectOptimals.Visible = False
  937. End Sub
  938. Private Sub opt10X_Click()
  939.     frmTestVBAudioBurner.burnSpeed = 10
  940. End Sub
  941. Private Sub opt11X_Click()
  942.     frmTestVBAudioBurner.burnSpeed = 11
  943. End Sub
  944. Private Sub opt12X_Click()
  945.     frmTestVBAudioBurner.burnSpeed = 12
  946. End Sub
  947. Private Sub opt13X_Click()
  948.     frmTestVBAudioBurner.burnSpeed = 13
  949. End Sub
  950. Private Sub opt14X_Click()
  951.     frmTestVBAudioBurner.burnSpeed = 14
  952. End Sub
  953. Private Sub opt15X_Click()
  954.     frmTestVBAudioBurner.burnSpeed = 15
  955. End Sub
  956. Private Sub opt16X_Click()
  957.     frmTestVBAudioBurner.burnSpeed = 16
  958. End Sub
  959. Private Sub opt17X_Click()
  960.     frmTestVBAudioBurner.burnSpeed = 17
  961. End Sub
  962. Private Sub opt18X_Click()
  963.     frmTestVBAudioBurner.burnSpeed = 18
  964. End Sub
  965. Private Sub opt19X_Click()
  966.     frmTestVBAudioBurner.burnSpeed = 19
  967. End Sub
  968. Private Sub opt1X_Click()
  969.     frmTestVBAudioBurner.burnSpeed = 1
  970. End Sub
  971. Private Sub opt20X_Click()
  972.     frmTestVBAudioBurner.burnSpeed = 20
  973. End Sub
  974. Private Sub opt21X_Click()
  975.     frmTestVBAudioBurner.burnSpeed = 21
  976. End Sub
  977. Private Sub opt22X_Click()
  978.     frmTestVBAudioBurner.burnSpeed = 22
  979. End Sub
  980. Private Sub opt23X_Click()
  981.     frmTestVBAudioBurner.burnSpeed = 23
  982. End Sub
  983. Private Sub opt24X_Click()
  984.     frmTestVBAudioBurner.burnSpeed = 24
  985. End Sub
  986. Private Sub opt25X_Click()
  987.     frmTestVBAudioBurner.burnSpeed = 25
  988. End Sub
  989. Private Sub opt26X_Click()
  990.     frmTestVBAudioBurner.burnSpeed = 26
  991. End Sub
  992. Private Sub opt27X_Click()
  993.     frmTestVBAudioBurner.burnSpeed = 27
  994. End Sub
  995. Private Sub opt28X_Click()
  996.     frmTestVBAudioBurner.burnSpeed = 28
  997. End Sub
  998. Private Sub opt29X_Click()
  999.     frmTestVBAudioBurner.burnSpeed = 29
  1000. End Sub
  1001. Private Sub opt2X_Click()
  1002.     frmTestVBAudioBurner.burnSpeed = 2
  1003. End Sub
  1004. Private Sub opt30X_Click()
  1005.     frmTestVBAudioBurner.burnSpeed = 30
  1006. End Sub
  1007. Private Sub opt31X_Click()
  1008.     frmTestVBAudioBurner.burnSpeed = 31
  1009. End Sub
  1010. Private Sub opt32X_Click()
  1011.     frmTestVBAudioBurner.burnSpeed = 32
  1012. End Sub
  1013. Private Sub opt33X_Click()
  1014.     frmTestVBAudioBurner.burnSpeed = 33
  1015. End Sub
  1016. Private Sub opt34X_Click()
  1017.     frmTestVBAudioBurner.burnSpeed = 34
  1018. End Sub
  1019. Private Sub opt35X_Click()
  1020.     frmTestVBAudioBurner.burnSpeed = 35
  1021. End Sub
  1022. Private Sub opt36X_Click()
  1023.     frmTestVBAudioBurner.burnSpeed = 36
  1024. End Sub
  1025. Private Sub opt37X_Click()
  1026.     frmTestVBAudioBurner.burnSpeed = 37
  1027. End Sub
  1028. Private Sub opt38X_Click()
  1029.     frmTestVBAudioBurner.burnSpeed = 38
  1030. End Sub
  1031. Private Sub opt39X_Click()
  1032.     frmTestVBAudioBurner.burnSpeed = 39
  1033. End Sub
  1034. Private Sub opt3X_Click()
  1035.     frmTestVBAudioBurner.burnSpeed = 3
  1036. End Sub
  1037. Private Sub opt40X_Click()
  1038.     frmTestVBAudioBurner.burnSpeed = 40
  1039. End Sub
  1040. Private Sub opt41X_Click()
  1041.     frmTestVBAudioBurner.burnSpeed = 41
  1042. End Sub
  1043. Private Sub opt42X_Click()
  1044.     frmTestVBAudioBurner.burnSpeed = 42
  1045. End Sub
  1046. Private Sub opt43X_Click()
  1047.     frmTestVBAudioBurner.burnSpeed = 43
  1048. End Sub
  1049. Private Sub opt44X_Click()
  1050.     frmTestVBAudioBurner.burnSpeed = 44
  1051. End Sub
  1052. Private Sub opt45X_Click()
  1053.     frmTestVBAudioBurner.burnSpeed = 45
  1054. End Sub
  1055. Private Sub opt46X_Click()
  1056.     frmTestVBAudioBurner.burnSpeed = 46
  1057. End Sub
  1058. Private Sub opt47X_Click()
  1059.     frmTestVBAudioBurner.burnSpeed = 47
  1060. End Sub
  1061. Private Sub opt48X_Click()
  1062.     frmTestVBAudioBurner.burnSpeed = 48
  1063. End Sub
  1064. Private Sub opt49X_Click()
  1065.     frmTestVBAudioBurner.burnSpeed = 49
  1066. End Sub
  1067. Private Sub opt4X_Click()
  1068.     frmTestVBAudioBurner.burnSpeed = 4
  1069. End Sub
  1070. Private Sub opt50X_Click()
  1071.     frmTestVBAudioBurner.burnSpeed = 50
  1072. End Sub
  1073. Private Sub opt5X_Click()
  1074.     frmTestVBAudioBurner.burnSpeed = 5
  1075. End Sub
  1076. Private Sub opt6X_Click()
  1077.     frmTestVBAudioBurner.burnSpeed = 6
  1078. End Sub
  1079. Private Sub opt7X_Click()
  1080.     frmTestVBAudioBurner.burnSpeed = 7
  1081. End Sub
  1082. Private Sub opt8X_Click()
  1083.     frmTestVBAudioBurner.burnSpeed = 8
  1084. End Sub
  1085. Private Sub opt9X_Click()
  1086.     frmTestVBAudioBurner.burnSpeed = 9
  1087. End Sub
  1088. Public Sub EnableOpt()
  1089.     opt1X.Enabled = True
  1090.     opt2X.Enabled = True
  1091.     opt3X.Enabled = True
  1092.     opt4X.Enabled = True
  1093.     opt5X.Enabled = True
  1094.     opt6X.Enabled = True
  1095.     opt7x.Enabled = True
  1096.     opt8X.Enabled = True
  1097.     opt9X.Enabled = True
  1098.     opt10X.Enabled = True
  1099.     opt11X.Enabled = True
  1100.     opt12X.Enabled = True
  1101.     opt13X.Enabled = True
  1102.     opt14X.Enabled = True
  1103.     opt15X.Enabled = True
  1104.     opt16X.Enabled = True
  1105.     opt17X.Enabled = True
  1106.     opt18X.Enabled = True
  1107.     opt19X.Enabled = True
  1108.     opt20X.Enabled = True
  1109.     opt21X.Enabled = True
  1110.     opt22X.Enabled = True
  1111.     opt23X.Enabled = True
  1112.     opt24X.Enabled = True
  1113.     opt25X.Enabled = True
  1114.     opt26X.Enabled = True
  1115.     opt27X.Enabled = True
  1116.     opt28X.Enabled = True
  1117.     opt29X.Enabled = True
  1118.     opt30X.Enabled = True
  1119.     opt31X.Enabled = True
  1120.     opt32X.Enabled = True
  1121.     opt33X.Enabled = True
  1122.     opt34X.Enabled = True
  1123.     opt35X.Enabled = True
  1124.     opt36X.Enabled = True
  1125.     opt37X.Enabled = True
  1126.     opt38X.Enabled = True
  1127.     opt39X.Enabled = True
  1128.     opt40X.Enabled = True
  1129.     opt41X.Enabled = True
  1130.     opt42X.Enabled = True
  1131.     opt43X.Enabled = True
  1132.     opt44X.Enabled = True
  1133.     opt45X.Enabled = True
  1134.     opt46X.Enabled = True
  1135.     opt47X.Enabled = True
  1136.     opt48X.Enabled = True
  1137.     opt49X.Enabled = True
  1138.     opt50X.Enabled = True
  1139. End Sub
  1140.